subroutine load(ie, icore)
use mod_size
use mod_orbit 
implicit none
real*8, intent(inout) :: ie(*)
real*8, intent(inout) :: icore(*)
!
real*8 escf
integer nsize, iend, iaabb, i, j
integer iaaaa, ibbbb, iabab, ibaba, iabba, ibaab 
integer, external :: idsymsoc, irpdso
real*8, external :: dnrm2
!
open(unit=77, file='energydatar', form='unformatted')
rewind 77
read(77)(ie(i), i = 1, noa+nva)
read(77) ESCF
close(77)
!
return
end 
